home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 2 / Tech Arsenal 2 (Arsenal Computer).iso / clipper / s93bsp.exe / CL5 / S93CHKRN.PRG < prev    next >
Encoding:
Text File  |  1993-11-25  |  521 b   |  20 lines
  1. //  Summer'93 : Clipper5 source
  2. //
  3. //  Function to check that the test value is between the
  4. //  Limits specified. The function is used when a 'PUBLIC' get
  5. //  with a 'range' clause is found.
  6. //  You may substitute any function, of course.
  7.  
  8. function CheckRange( xTestVal, xLoLimit, xHiLimit )
  9. local lRangeOK
  10.  
  11. if xHiLimit <= xLoLimit
  12.     lRangeOk := ((xTestVal >= xLoLimit) .and. (xTestVal <= xHiLimit))
  13. else
  14.     lRangeOk := ((xTestVal >= xHiLimit) .and. (xTestVal <= xLoLimit))
  15. endif
  16.  
  17. return lRangeOK
  18.  
  19.  
  20.